home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-04_1988_-_de_Side_B.d64 / jump 1.1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  445 lines
  1. 1000 rem ------------------------------
  2. 1005 rem jump 1.1
  3. 1010 rem
  4. 1015 rem das strategie-brettspiel jetzt
  5. 1020 rem auf ihrem commodore 64!
  6. 1025 rem
  7. 1030 rem (w) januar 1988 by stefan wudy
  8. 1035 rem                 lenaustrasse21
  9. 1040 rem                 8440 straubing
  10. 1045 rem ------------------------------
  11. 1050 rem variablen und dim
  12. 1055 rem ------------------------------
  13. 1061 ifa=0thena=1:gosub8000 :rem zs - laden
  14. 1065 tr(2)=104:tr(3)=138:gosub2100
  15. 1070 tr(0)=32:tr(1)=64:tr(4)=159
  16. 1075 x$(0)="jump 1.1"
  17. 1080 x$(1)="by stefan wudy"
  18. 1085 x$(2)="published in"
  19. 1090 x$(3)="1988"
  20. 1095 x$(4)="by the famous"
  21. 1100 x$(5)="magic disk 64"
  22. 1105 x$(6)="the magazin on disk"
  23. 1110 x$(7)="for the c64"
  24. 1115 l2$="                                      ":z=-1
  25. 1120 bs=49152  :rem bildschirmspeicher
  26. 1125 l1$="    "
  27. 1130 goto1840:rem programmvorspann
  28. 1135 goto2200:rem levelauswahl
  29. 1140 :
  30. 1145 rem ------------------------------
  31. 1150 rem steuerung crsr-tasten
  32. 1155 rem ------------------------------
  33. 1160 :
  34. 1165 print"[154]steine":printl1$:print"[145]"ss:gosub1540
  35. 1170 poke204,0:poke198,0:wait198,1:geta$
  36. 1175 poke205,2:wait207,1,1:poke204,1
  37. 1180 ifa$="r"then1805
  38. 1185 ifa$=""thens=s+2:goto1225
  39. 1190 ifa$="[157]"thens=s-2:goto1270
  40. 1195 ifa$="[145]"thenz=z-2:goto1315
  41. 1200 ifa$=""thenz=z+2:goto1360
  42. 1205 ifa$=chr$(13)thengoto1405
  43. 1210 ifa$="a"then2140
  44. 1215 goto1165
  45. 1220 :
  46. 1225 rem ------------------------------
  47. 1230 rem bewegen nach rechts
  48. 1235 rem ------------------------------
  49. 1240 :
  50. 1245 ad=bs+s+40*z
  51. 1250 gosub1540
  52. 1255 ifpeek(ad)=32thens=s-2
  53. 1260 goto1165
  54. 1265 :
  55. 1270 rem ------------------------------
  56. 1275 rem bewegen nach links
  57. 1280 rem ------------------------------
  58. 1285 :
  59. 1290 ad=bs+s+40*z
  60. 1295 gosub1540
  61. 1300 ifpeek(ad)=32thens=s+2
  62. 1305 goto1165
  63. 1310 :
  64. 1315 rem ------------------------------
  65. 1320 rem bewegen nach oben
  66. 1325 rem ------------------------------
  67. 1330 :
  68. 1335 ad=bs+s+40*z
  69. 1340 gosub1540
  70. 1345 ifpeek(ad)=32thenz=z+2
  71. 1350 goto1165
  72. 1355 :
  73. 1360 rem ------------------------------
  74. 1365 rem bewegen nach unten
  75. 1370 rem ------------------------------
  76. 1375 :
  77. 1380 ad=bs+s+40*z
  78. 1385 gosub1540
  79. 1390 ifpeek(ad)=32thenz=z-2
  80. 1395 goto1165
  81. 1400 :
  82. 1405 rem ------------------------------
  83. 1410 rem springrichtung bestimmen
  84. 1415 rem ------------------------------
  85. 1420 :
  86. 1425 ad=bs+s+40*z:print"";:gosub1540:ifpeek(ad)=58then1170
  87. 1430 poke204,0:poke198,0:wait198,1:geta$
  88. 1435 poke205,2:wait207,1,1:poke204,1
  89. 1440 ifa$="[145]"then1470
  90. 1445 ifa$=""then1590
  91. 1450 ifa$=""then1655
  92. 1455 ifa$="[157]"then1730
  93. 1460 goto1430
  94. 1465 :
  95. 1470 rem ------------------------------
  96. 1475 rem springen nach oben
  97. 1480 rem ------------------------------
  98. 1485 :
  99. 1490 q=0:z=z-2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=32thenz=z+2:goto1145
  100. 1495 z=z-2:gosub1535
  101. 1500 ad=bs+s+40*z
  102. 1505 ifpeek(ad)=58thenq=q+1
  103. 1510 z=z+2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=81thenq=q+1
  104. 1515 ifq=2thenz=z+4:print":";:z=z-2:gosub1535:print":";:z=z-4:gosub1535:print"[209]";
  105. 1520 ifq=2thenss=ss-1:gosub2130
  106. 1525 goto1145
  107. 1530 :
  108. 1535 rem ------------------------------
  109. 1540 rem printat
  110. 1545 rem ------------------------------
  111. 1550 ifs<0thens=0
  112. 1555 ifz<0thenz=0
  113. 1560 ifs>40thens=40
  114. 1565 ifz>24thenz=24
  115. 1570 poke211,s:poke214,z:sys58732
  116. 1575 return
  117. 1580 :
  118. 1585 :
  119. 1590 rem ------------------------------
  120. 1595 rem springen nach unten
  121. 1600 rem ------------------------------
  122. 1605 :
  123. 1610 q=0:z=z+2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=32thenz=z-2:goto1145
  124. 1615 z=z+2:gosub1535
  125. 1620 ad=bs+s+40*z
  126. 1625 ifpeek(ad)=58thenq=q+1
  127. 1630 z=z-2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=81thenq=q+1
  128. 1635 ifq=2thenz=z-4:print":";:z=z+2:gosub1535:print":";:z=z+4:gosub1535:print"[209]";
  129. 1640 ifq=2thenss=ss-1:gosub2130
  130. 1645 goto1145
  131. 1650 :
  132. 1655 rem ------------------------------
  133. 1660 rem springen nach rechts
  134. 1665 rem ------------------------------
  135. 1670 :
  136. 1675 q=0:s=s+2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=32thens=s-2:goto1145
  137. 1680 s=s+2:gosub1535
  138. 1685 ad=bs+s+40*z
  139. 1690 ifpeek(ad)=58thenq=q+1
  140. 1695 s=s-2:gosub1535
  141. 1700 ad=bs+s+40*z:ifpeek(ad)=81thenq=q+1
  142. 1705 ifq=2thens=s-2:gosub1535:print":";:s=s+2:gosub1535:print":";:s=s+2:gosub1535
  143. 1710 ifq=2thenprint"[209]";
  144. 1715 ifq=2thenss=ss-1:gosub2130
  145. 1720 goto1145
  146. 1725 :
  147. 1730 rem ------------------------------
  148. 1735 rem springen nach links
  149. 1740 rem ------------------------------
  150. 1745 :
  151. 1750 q=0:s=s-2:gosub1535:ad=bs+s+40*z:ifpeek(ad)=32ors<0ors>40thens=s+2:goto1145
  152. 1755 s=s-2:gosub1535
  153. 1760 ad=bs+s+40*z
  154. 1765 ifpeek(ad)=58thenq=q+1
  155. 1770 s=s+2:gosub1535:ad=bs+s+40*z
  156. 1775 ifpeek(ad)=81thenq=q+1
  157. 1780 ifq=2thens=s+2:gosub1535:print":";:s=s-2:gosub1535:print":";:s=s-2:gosub1535
  158. 1785 ifq=2thenprint"[209]";
  159. 1790 ifq=2thenss=ss-1:gosub2130
  160. 1795 goto1145
  161. 1800 :
  162. 1805 rem ------------------------------
  163. 1810 rem reset=spielende
  164. 1815 rem ------------------------------
  165. 1820 :
  166. 1825 print"[147]";
  167. 1830 print"vielen dank f^r's spielen!"
  168. 1835 sys64738
  169. 1840 :
  170. 1845 rem ------------------------------
  171. 1850 rem programm-vorspann
  172. 1855 rem ------------------------------
  173. 1860 :
  174. 1865 poke 53280,0:poke 53281,0
  175. 1870 print chr$(8)chr$(142)"[147]":fory=1to39:print"[192]";:next:print:print
  176. 1875 t$(1)="m a g i c  d i s k  6 4  pr;sentiert:"
  177. 1880 t$(2)="    strategiespiel nummer eins:"
  178. 1885 t$(3)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  179. 1890 t$(4)="       j u m p  version 1.1"
  180. 1895 t$(5)="  (w) januar 1988 by stefan wudy"
  181. 1900 t$(6)="                  lenaustra\e21"
  182. 1905 t$(7)="                  8440 straubing"
  183. 1910 t$(8)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  184. 1915 t$(9)="ist eine anleitung erw^nscht (j/n) ?"
  185. 1920 forq=1to9
  186. 1925 print"[151]"+t$(q):fory=1to30:next
  187. 1930 print"[145][152]"+t$(q):fory=1to30:next
  188. 1935 print"[145][155]"+t$(q):fory=1to30:next
  189. 1940 print"[145]"+t$(q):fory=1to30:next
  190. 1945 print:gosub2135:next
  191. 1950 geta$:ifa$=""then1965
  192. 1955 ifa$="j"thengoto1975
  193. 1960 ifa$="n"thengoto1135
  194. 1965 gosub3080:goto1950
  195. 1970 :
  196. 1975 rem ------------------------------
  197. 1980 rem anleitung zu jump 1.1
  198. 1985 rem ------------------------------
  199. 1990 :
  200. 1995 print"[147]anleitung zu jump 1.0"
  201. 2000 forx=1to40:print"[183]";:next
  202. 2005 print"[129]ziel des spiels ist es, durch werfen"
  203. 2010 print"von spielsteinen m@glichst alle stei-"
  204. 2015 print"ne vom spielfeld zu entfernen."
  205. 2020 print"ein spielstein sieht so aus: [209][129]"
  206. 2025 print"ein leeres feld            : :[129]"
  207. 2030 print"der spielcursor l;\t sich wie gewohnt"
  208. 2035 print"mit den cursortasten auf dem spielfeld"
  209. 2040 print"steuern. um mit einem stein ^ber den"
  210. 2045 print"anderen zu springen mu\ man als erstes"
  211. 2050 print"diesen mit return[146] anw;hlen."
  212. 2055 print"dann gibt man die springrichtung an,"
  213. 2060 print"und wenn dort ein leeres feld ist, so"
  214. 2065 print"kann man werfen."
  215. 2070 print"es ist ziemlich schwer, alle steine zu"
  216. 2075 print"werfen, ich habe es selbst noch nicht"
  217. 2080 print"geschafft!"
  218. 2085 forq=1to40:print"[175]";:next
  219. 2090 print" dr^cken sie bitte irgendeine taste!"
  220. 2095 poke198,0:wait198,1:goto1135
  221. 2100 rem ------------------------------
  222. 2105 rem ton
  223. 2110 rem ------------------------------
  224. 2115 data 166, 6, 153, 1, 64, 12, 134, 0, 0, 0, 0, 0, 0, 0
  225. 2120 data 0, 0, 0, 0, 0, 0, 0, 4, 216, 16, 31
  226. 2125 s=54272:fori=0to24:readd:pokes+i,d:nexti
  227. 2130 rem ton ein,aus
  228. 2135 poke 54276,65:poke54276,64:return
  229. 2140 rem -----------------------------
  230. 2145 rem aufgabe, neustart
  231. 2150 rem -----------------------------
  232. 2155 print"[147]^brige steine: ";ss
  233. 2160 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  234. 2165 print"level: ";level
  235. 2170 ifss<tr(level)thenprint"das ist tagesrekord!":tr(level)=ss:gosub3040
  236. 2175 ifss>=tr(level)thenprint"tagesrekord: ";tr(level);" steine."
  237. 2180 ifname$(level)<>""thenprint"rekordhalter: ";name$(level)
  238. 2185 print"dr^cken sie eine beliebige taste[146]"
  239. 2190 poke198,0:wait198,1:goto2200
  240. 2195 :
  241. 2200 rem ------------------------------
  242. 2205 rem levelauswahl
  243. 2210 rem ------------------------------
  244. 2215 print"[147]levelauswahl jump 1.1 by stefan wudy'88"
  245. 2220 forx=1to40:print"[183]";:next
  246. 2225 print"[154] 0 [146] = level0 (32 spielsteine)"
  247. 2230 print"[154] 1 [146] = level1 (64 spielsteine)"
  248. 2235 print" 2 [146] = level2 (104 spielsteine)"
  249. 2240 print" 3 [146] = level3 (138 spielsteine)"
  250. 2245 print" 4 [146] = level4 (159 spielsteine)"
  251. 2250 print"bitte w;hlen sie![160](level=spielst;rke)"
  252. 2255 forx=1to40:print"[183]";:next
  253. 2260 poke198,0:wait198,1:geta$
  254. 2265 ifa$="2"thenlevel=2:goto2295
  255. 2270 ifa$="0"thenlevel=0:goto2295
  256. 2275 ifa$="1"thenlevel=1:goto2295
  257. 2280 ifa$="3"thenlevel=3:goto2295
  258. 2285 ifa$="4"thenlevel=4:goto2295
  259. 2290 goto2260
  260. 2295 rem ------------------------------
  261. 2300 rem variablen setzen
  262. 2305 rem ------------------------------
  263. 2310 iflevel=2thenz=12:s=12:ss=104:gosub2340:goto1140
  264. 2315 iflevel=0thenz=12:s=12:ss=32:gosub2485:goto1140
  265. 2320 iflevel=4thenz=12:s=14:ss=159:gosub2870:goto1140
  266. 2325 iflevel=3thenz=12:s=16:ss=138:gosub2595:goto1140
  267. 2330 iflevel=1thenz=12:s=12:ss=64:gosub2745:goto1140
  268. 2335 return
  269. 2340 rem ------------------------------
  270. 2345 rem level2
  271. 2350 rem ------------------------------
  272. 2355 print"[147]        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    [158]jump 1.1"
  273. 2360 print"        [151][221][160][221][160][221][160][221][160][221]"
  274. 2365 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    [176][192][192][192][192][192][192][192][174][146] [158](w) by"
  275. 2370 print"        [151][221][160][221][160][221][160][221] [221]    [221]level 2[221][146] [158]stefan"
  276. 2375 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    [173][192][192][192][192][192][192][192][189][146]  [158]wudy"
  277. 2380 print"        [151][221][160][221][160][221][160][221][160][221]"
  278. 2385 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  279. 2390 print"        [151][221][160][221][160][221][160][221][160][221]"
  280. 2395 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  281. 2400 print"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
  282. 2405 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  283. 2410 print"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
  284. 2415 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  285. 2420 print"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
  286. 2425 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  287. 2430 print"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160]"
  288. 2435 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  289. 2440 print"        [151][221][160][221][160][221][160][221][160][221]"
  290. 2445 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  291. 2450 print"        [151][221] [221][160][221][160][221][160][221][160]"
  292. 2455 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]   [155] a [146] = aufgabe"
  293. 2460 print"        [151][221] [221] [221] [221][160][221]"
  294. 2465 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]   [155]r[146]=reset"
  295. 2470 print"        [151][221][160][221][160][221][160][221][160][221]"
  296. 2475 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  297. 2480 return
  298. 2485 rem ------------------------------
  299. 2490 rem level0
  300. 2495 rem ------------------------------
  301. 2500 print"[147]                     [158]jump 1.1"
  302. 2505 print"                     [176][192][192][192][192][192][192][192][174]"
  303. 2510 print"                     [221]level 0[221]"
  304. 2515 print"                     [173][192][192][192][192][192][192][192][189]"
  305. 2520 print"          [155][209][151][192][155][209][151][192][155][209]"
  306. 2525 print"          [151][221] [221] [221]"
  307. 2530 print"          [155][209][151][192][155][209][151][192][155][209]"
  308. 2535 print"          [151][221] [221] [221]"
  309. 2540 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  310. 2545 print"      [151][221] [221] [221] [221] [221] [221] [221]"
  311. 2550 print"      [155][209][151][192][155][209][151][192][155][209][151][192]:[192][155][209][151][192][155][209][151][192][155][209]"
  312. 2555 print"      [151][221] [221] [221] [221] [221] [221] [221]"
  313. 2560 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  314. 2565 print"          [151][221] [221] [221]"
  315. 2570 print"          [155][209][151][192][155][209][151][192][155][209]"
  316. 2575 print"          [151][221] [221] [221]"
  317. 2580 print"          [155][209][151][192][155][209][151][192][155][209]      [155] a [146] = aufgabe"
  318. 2585 print"                     r[146]=reset"
  319. 2590 return
  320. 2595 rem ------------------------------
  321. 2600 rem level3
  322. 2605 rem ------------------------------
  323. 2610 print"[147]            [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151]"
  324. 2615 print"            [151][221] [221] [221] [221] [221]        [158]jump 1.1"
  325. 2620 print"          [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  326. 2625 print"          [151][221] [221] [221] [221] [221] [221] [221]      [176][192][192][192][192][192][192][192][174]"
  327. 2630 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]  [221]level 3[221]"
  328. 2635 print"      [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]  [173][192][192][192][192][192][192][192][189]"
  329. 2640 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  330. 2645 print"      [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  331. 2650 print"    [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  332. 2655 print"    [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  333. 2660 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  334. 2665 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  335. 2670 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  336. 2675 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  337. 2680 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  338. 2685 print"    [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  339. 2690 print"    [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  340. 2695 print"      [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  341. 2700 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  342. 2705 print"      [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  343. 2710 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  344. 2715 print"          [151][221] [221] [221] [221] [221] [221] [221]"
  345. 2720 print"          [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    a [146] = aufgabe"
  346. 2725 print"            [151][221] [221] [221] [221] [221]"
  347. 2730 print"            [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]     r[146]=reset";
  348. 2735 return
  349. 2740 rem ------------------------------
  350. 2745 rem level1+
  351. 2750 rem ------------------------------
  352. 2755 print"[147]                          [158]jump 1.1"
  353. 2760 print"          [155][209][151][192][155][209][151][192][155][209]"
  354. 2765 print"          [151][221] [221] [221]           [176][192][192][192][192][192][192][192][174]"
  355. 2770 print"          [155][209][151][192][155][209][151][192][155][209]           [221]level 1[221]"
  356. 2775 print"          [151][221] [221] [221]           [173][192][192][192][192][192][192][192][189]"
  357. 2780 print"          [155][209][151][192][155][209][151][192][155][209]"
  358. 2785 print"          [151][221] [221] [221]"
  359. 2790 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  360. 2795 print"      [151][221] [221] [221] [221] [221] [221] [221]"
  361. 2800 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  362. 2805 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  363. 2810 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192]:[192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  364. 2815 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  365. 2820 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  366. 2825 print"      [151][221] [221] [221] [221] [221] [221] [221]"
  367. 2830 print"      [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  368. 2835 print"          [151][221] [221] [221]           [155] a [146] = aufgabe"
  369. 2840 print"          [155][209][151][192][155][209][151][192][155][209]"
  370. 2845 print"          [151][221] [221] [221]           [155]r[146]=reset"
  371. 2850 print"          [155][209][151][192][155][209][151][192][155][209]"
  372. 2855 print"          [151][221] [221] [221]"
  373. 2860 print"          [155][209][151][192][155][209][151][192][155][209]";
  374. 2865 return
  375. 2870 rem ------------------------------
  376. 2875 rem level3+
  377. 2880 rem ------------------------------
  378. 2885 print"[147]        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  379. 2890 print"        [151][221] [221] [221] [221] [221] [221] [221]    [158]jump 1.1"
  380. 2895 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  381. 2900 print"        [151][221] [221] [221] [221] [221] [221] [221]    [176][192][192][192][192][192][192][192][174]"
  382. 2905 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    [221]level 4[221]"
  383. 2910 print"        [151][221] [221] [221] [221] [221] [221] [221]    [173][192][192][192][192][192][192][192][189]"
  384. 2915 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  385. 2920 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  386. 2925 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  387. 2930 print"[151][192][155][209][151][192][155][209]"
  388. 2935 print"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  389. 2940 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  390. 2945 print"[151][192][155][209][151][192][155][209]"
  391. 2950 print"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  392. 2955 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  393. 2960 print"[151][192][155][209][151][192][155][209]"
  394. 2965 print"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  395. 2970 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  396. 2975 print"[151][192][155][209][151][192][155][209]"
  397. 2980 print"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  398. 2985 print"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  399. 2990 print"[151][192][155][209][151][192][155][209]"
  400. 2995 print"  [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  401. 3000 print"  [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"
  402. 3005 print"        [151][221] [221] [221] [221] [221] [221] [221]"
  403. 3010 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]    a [146] = aufgabe"
  404. 3015 print"        [151][221] [221] [221] [221] [221] [221] [221]"
  405. 3020 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]   r[146]=reset"
  406. 3025 print"        [151][221] [221] [221] [221] [221] [221] [221]"
  407. 3030 print"        [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]";
  408. 3035 return
  409. 3040 rem ------------------------------
  410. 3045 rem tagesrekord => name eingeben
  411. 3050 rem ------------------------------
  412. 3055 print"geben sie bitte ihren namen ein:"
  413. 3060 inputname$(level)
  414. 3065 print"(er bleibt bis zum ausschalten oder bis"
  415. 3070 print"sie geschlagen werden im computer)"
  416. 3075 return
  417. 3080 rem -----------------------------
  418. 3085 rem gag
  419. 3090 rem -----------------------------
  420. 3095 z=z+1
  421. 3100 ifz>7thenz=-0
  422. 3105 print""l2$:print"";x$(z):forq=1to1500:next
  423. 3110 return
  424. 8000 :
  425. 8010 rem ------------------------------
  426. 8020 rem zeichensatz laden
  427. 8030 rem ------------------------------
  428. 8040 :
  429. 8041 open15,8,15,"i":close15
  430. 8050 poke 53280,5:poke 53281,5:print"[147][144]geduld ..."chr$(142)
  431. 8060 v=53248
  432. 8070 bl=16
  433. 8080 zs$="jump-char"
  434. 8090 ifzs$=""then8080
  435. 8100 sys57812zs$,8
  436. 8110 poke781,0
  437. 8120 poke782,224
  438. 8130 poke780,0
  439. 8140 sys65493
  440. 8150 poke56576,(peek(56576)and252)
  441. 8160 poke53272,(peek(53272)and15)
  442. 8170 poke648,192
  443. 8180 poke53272,(peek(53272)and240)or8
  444. 8190 print"":return
  445.